;:sys36864
	*= 820
suchvar	=$b08b
getx	=$b7f1
komma	=$aefd
frestr	=$b6a3
strres	=$b475
varadr	=$49
para	=$61
clrchn	=$ffcc
chkin	=$e11e
basin	=$e112
inputf	jsr getx
	jsr chkin
	jsr getx
	txa
	pha
	jsr komma
	jsr suchvar
	sta varadr
	sty varadr+1
	jsr frestr
	pla
	jsr strres
	ldy #2
store	lda para,y
	sta (varadr),y
	dey
	bpl store
	iny
fetch	jsr basin
	sta (para+1),y
	iny
	cpy para
	bne fetch
	jmp clrchn